home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -screenplay- / shareware / taskforce / install_taskforce < prev    next >
Text File  |  1998-06-18  |  2KB  |  113 lines
  1. ; $VER: Install_TaskForce 1.06 (04.06.98)
  2.  
  3. (complete 0)
  4.  
  5. ; version check
  6. (if (< (/ (getversion) 65536) 37)
  7.     (abort "You must be using Kickstart 2.04 or higher to run TaskForce.")
  8. )
  9.  
  10. (welcome)
  11.  
  12. (set @default-dest
  13.     (askdir
  14.         (prompt "Please choose a directory where to install the game. A directory named \"TaskForce\" will be created.")
  15.         (help @askdir-help)
  16.         (default @default-dest)
  17.     )
  18. )
  19.  
  20. (complete 10)
  21.  
  22. (set #missions 7)    ; default missions to be installed
  23. (if (= @user-level 2)
  24.     (set #missions
  25.         (askoptions
  26.             (prompt "Select the missions you wish to install.")
  27.             (help (cat
  28.                 "The mission files are needed to play TaskForce. "
  29.                 "Each mission introduces new characters, defines "
  30.                 "other objectives, and usually also offers a "
  31.                 "different setting. It is recommended to copy all files. "
  32.                 "However, you may opt not to install all available "
  33.                 "missions because of low harddisk space, for example "
  34.                 "(rather improbable, isn't it?).\n"
  35.                 "The number in brackets indicates whether it is a "
  36.                 "scenario for one or two human players."
  37.             ))
  38.             (choices "Hide & Seek (1)" "Plasma (1)" "Urban Combat (2)")
  39.             (default #missions)
  40.         )
  41.     )
  42. )
  43.  
  44. (complete 20)
  45.  
  46. (set #instdir (tackon @default-dest "TaskForce") )
  47.  
  48. (makedir #instdir (infos))
  49. (makedir (tackon #instdir "Games"))
  50. (makedir (tackon #instdir "Missions"))
  51. (makedir (tackon #instdir "Missions/OnePlayer"))
  52. (makedir (tackon #instdir "Missions/TwoPlayers"))
  53. (makedir (tackon #instdir "Briefings"))
  54.  
  55. (complete 30)
  56.  
  57. (copyfiles
  58.     (prompt "Copying game files...")
  59.     (help @copyfiles-help)
  60.     (source "")
  61.     (dest #instdir)
  62.     (choices "TaskForce" "Editor" "Data" "Docs" "Briefings.info")
  63.     (infos)
  64. )
  65.  
  66. (complete 65)
  67.  
  68. (working "\n\n\nTaskForce is now installing the mission files...")
  69.  
  70. (set n 0)
  71. (while
  72.     (set #missionfiles
  73.         (select n
  74.             "OnePlayer/Hide & Seek"
  75.             "OnePlayer/Plasma"
  76.             "TwoPlayers/Urban Combat"
  77.             ""
  78.         )
  79.     )
  80. (
  81.     (if (IN #missions n)
  82.         (
  83.             (copyfiles
  84.                 (source "Missions/")
  85.                 (dest (pathonly (tackon (tackon #instdir "Missions/") #missionfiles) ) )
  86.                 (choices (cat #missionfiles ".mission"))
  87.                 (nogauge)
  88.             )
  89.             (copyfiles
  90.                 (source "Briefings/")
  91.                 (dest (tackon #instdir "Briefings"))
  92.                 (choices (fileonly #missionfiles))
  93.                 (infos)
  94.                 (nogauge)
  95.             )
  96.         )
  97.     )
  98.     (set n (+ n 1))
  99.     (complete (+ 65 (* n 6)))
  100. ))
  101.  
  102. (complete 90)
  103.  
  104. (copylib
  105.     (prompt "Installing reqtools.library")
  106.     (help @copylib-help)
  107.     (source "Libs/reqtools.library")
  108.     (dest "LIBS:")
  109.     (confirm)
  110. )
  111.     
  112. (complete 100)
  113.